FM Towns: Free Software Collection 4/FM Towns Free Software Collection 4 - Disc 1.iso/msdos/dbhamlog/wave.prg

Text File | 1991-10-18 | 885b | 38 lines

****USE HAM INDEX CSINDEX,CPINDEX
STORE SPACE(4) TO W
  @ 22,15 SAY "          検索する 電波形式は  ? " GET  W
  READ
  CLEAR GET

IF W=" "
RETURN
ENDIF

CLEAR
STORE 6 TO Y
DO WHILE .NOT. EOF()
  IF WAVE=W
    @ 1,15 SAY "アマチュア 無 線 ＱＳＯ ログ 管 理 システム     WAVE.PRG"
    @ 2,15 SAY "===========================================   "
    @ 4,1 SAY "月/日/年  呼出符号 電波 周波数 氏  名     住         所              JCC_G QSL"
    @ 5,1 SAY "------------------------------------------------------------------------------"
    @ Y,1  SAY MMDDYY
    @ Y,11 SAY CALL
    @ Y,20 SAY WAVE
    @ Y,26 SAY FREQ
    @ Y,32 SAY NAME
    @ Y,43 SAY ADDRES
    @ Y,70 SAY JCC_G
    @ Y,76 SAY QSL
    STORE Y+1 TO Y
  IF Y>=21
    WAIT
    CLEAR
    STORE 6 TO Y
  ENDIF
 ENDIF
 SKIP
ENDDO
@ 22,0 SAY " 該当 デ－タの 検索 終了 です "
WAIT